home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / mail / mailx6 / _setup.1 / OCXDEMO.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-02-03  |  3.6 KB  |  121 lines
  1. VERSION 4.00
  2. Begin VB.MDIForm SessionForm 
  3.    BackColor       =   &H8000000C&
  4.    Caption         =   "Mail X for Visual Basic"
  5.    ClientHeight    =   5340
  6.    ClientLeft      =   1155
  7.    ClientTop       =   1830
  8.    ClientWidth     =   7050
  9.    Height          =   6000
  10.    Left            =   1110
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1215
  13.    Width           =   7140
  14.    Begin VB.PictureBox Picture1 
  15.       Align           =   1  'Align Top
  16.       BackColor       =   &H00C0C0C0&
  17.       Height          =   615
  18.       Left            =   0
  19.       ScaleHeight     =   585
  20.       ScaleWidth      =   7020
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   7050
  24.       Begin VB.CommandButton BtnNewMsg 
  25.          Caption         =   "New Msg"
  26.          BeginProperty Font 
  27.             name            =   "MS Sans Serif"
  28.             charset         =   0
  29.             weight          =   700
  30.             size            =   8.25
  31.             underline       =   0   'False
  32.             italic          =   0   'False
  33.             strikethrough   =   0   'False
  34.          EndProperty
  35.          Height          =   390
  36.          Left            =   1395
  37.          TabIndex        =   2
  38.          Top             =   120
  39.          Width           =   1200
  40.       End
  41.       Begin VB.CommandButton Tb_Inbox 
  42.          Caption         =   "Inbox"
  43.          BeginProperty Font 
  44.             name            =   "MS Sans Serif"
  45.             charset         =   0
  46.             weight          =   700
  47.             size            =   8.25
  48.             underline       =   0   'False
  49.             italic          =   0   'False
  50.             strikethrough   =   0   'False
  51.          EndProperty
  52.          Height          =   390
  53.          Left            =   120
  54.          TabIndex        =   1
  55.          Top             =   120
  56.          Width           =   1215
  57.       End
  58.       Begin Mailx16Lib.MSess MSess1 
  59.          Left            =   3735
  60.          Top             =   0
  61.          _Version        =   65541
  62.          _ExtentX        =   900
  63.          _ExtentY        =   900
  64.          _StockProps     =   0
  65.       End
  66.       Begin Mailx16Lib.MForm MForm1 
  67.          Left            =   4605
  68.          Top             =   135
  69.          _Version        =   65541
  70.          _ExtentX        =   4048
  71.          _ExtentY        =   500
  72.          _StockProps     =   0
  73.          MXFormName      =   "FormTag1"
  74.       End
  75.    End
  76.    Begin VB.Menu Session 
  77.       Caption         =   "&Session"
  78.       Begin VB.Menu InboxList 
  79.          Caption         =   "&Inbox List"
  80.       End
  81.    End
  82.    Begin VB.Menu Message 
  83.       Caption         =   "&Message"
  84.       Begin VB.Menu NewMail 
  85.          Caption         =   "&New Mail"
  86.       End
  87.    End
  88. Attribute VB_Name = "SessionForm"
  89. Attribute VB_Creatable = False
  90. Attribute VB_Exposed = False
  91. Private Sub BtnNewMsg_Click()
  92.     NewMail_Click
  93. End Sub
  94. Private Sub Command1_Click()
  95. End Sub
  96. Private Sub InboxList_Click()
  97.     Dim NewInboxList As New InboxForm
  98.     NewInboxList.Show
  99. End Sub
  100. Private Sub MDIForm_Load()
  101.     Load SystemX
  102.     SystemX.MsMail = False
  103.     SystemX.Show 1
  104.     MSess1.Logon = True
  105.     If MSess1.Logon = False Then End
  106. End Sub
  107. Private Sub NewMail_Click()
  108.     Dim MsgWnd As New MsgForm
  109.     MsgWnd.szTime.Enabled = False
  110.     MsgWnd.szMsgID.Enabled = False
  111.     MsgWnd.szOriginator.Enabled = False
  112.     MsgWnd.szFileList.Enabled = False
  113.     MsgWnd.btnReply.Enabled = False
  114.     MsgWnd.BtnForward.Enabled = False
  115.     MsgWnd.MMsg1.WorkingMsg = COMPOSE_MSG
  116.     MsgWnd.Show
  117. End Sub
  118. Private Sub Tb_Inbox_Click()
  119.     InboxList_Click
  120. End Sub
  121.